home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 40 / 64er_Magazin_Sonderheft_40_19xx_Markt__Technik_de.d64 / demo 1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  282 b   |  11 lines
  1. 100 poke204,0:in$="":print"]";
  2. 110 getei$:ifei$=""then110
  3. 120 ifei$=chr$(13)andin$<>""thenpoke204,1:print" [157] ":in=val(in$):return
  4. 130 ifei$=chr$(20)thenly=len(in$):ifly>0thenin$=left$(in$,ly-1):print" [157][157] [157]";
  5. 140 iflen(in$)=>15then110
  6. 150 ifei$="e"then190
  7. 160 ifei$="."then190
  8. 170 ifei$="-"then190
  9. 180 ifasc(ei$)>57orasc(ei$)<48then110
  10. 190 in$=in$+ei$:printei$;:goto110
  11.